home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_oth / tasking / locks.def < prev    next >
Text File  |  1985-07-05  |  253b  |  15 lines
  1. DEFINITION MODULE Locks;
  2.  
  3.   EXPORT QUALIFIED LockType, Lock, BusyLock, Unlock;
  4.  
  5.   TYPE
  6.     LockType;
  7.  
  8.   PROCEDURE Lock(VAR l: LockType);
  9.  
  10.   PROCEDURE BusyLock(VAR l: LockType): BOOLEAN;
  11.  
  12.   PROCEDURE Unlock(VAR l: LockType);
  13.  
  14.   END Locks.
  15.